home *** CD-ROM | disk | FTP | other *** search
/ Game Classics 19 / Game Classics 19.iso / ARCADE / CUPID / CUPIDWIN.ZIP / CUPID.EXE / CUPID.DXR / 00002_Alien.ls < prev    next >
Encoding:
Text File  |  1996-01-23  |  789 b   |  34 lines
  1. property y, sp
  2.  
  3. on birth me, mysp
  4.   global AlienX, MaxAliens
  5.   set sp to mysp
  6.   puppetSprite(sp, 1)
  7.   set the stretch of sprite sp to 0
  8.   set alien to sp - 1
  9.   if alien <= MaxAliens then
  10.     set y to alien * 85
  11.     set the locH of sprite sp to AlienX
  12.   else
  13.     set y to (alien - (MaxAliens / 2)) * 70
  14.     set the locH of sprite sp to AlienX + 50
  15.   end if
  16.   set the locV of sprite sp to y
  17.   return me
  18. end
  19.  
  20. on animate me
  21.   global alienlist, Alast, Afirst, AlienX, inc, MaxAliens, points, numships
  22.   set alien to sp - 1
  23.   if alien <= MaxAliens then
  24.     set tmp to the castNum of sprite sp
  25.     set tmp to tmp + 1
  26.     if tmp > 112 then
  27.       set tmp to 65
  28.     end if
  29.     set the castNum of sprite sp to tmp
  30.     set the locH of sprite sp to AlienX
  31.   end if
  32.   set the locV of sprite sp to y
  33. end
  34.